GO TOP
BARIS=11
SET COLOR TO GR+/B
@ 9,46 to 18,79 double
@ 10,47 SAY ' >>> TESTS ALREADY RECORDED <<< '
DO WHILE .NOT. EOF()
   IF VISIT_NBER<>STR(VISLA,5)
      SKIP
      LOOP
   ENDIF
   @ BARIS,48 SAY SHRT_DESCR
   BARIS=BARIS+1
   if baris=18
      lyrbox=savescreen(12,47,17,78)
      restscreen(11,47,16,78,lyrbox)
      @ baris-1,47 say space(32)
      baris=17
   endif
   SKIP
ENDDO
